Contoh Program Percabangan Pada Visual Basic 2010

:: Contoh Program Percabangan Pada Visual Basic 2010 ::

Halooo sahabat tokokoding gimana kabarnya nih? tentunya baik dan sehat ya. kali ini saya akan membagikan sebuah ilmu yang sangat bermanfaat bagi kalian semua, khususnya penggemar tokokoding. Kali ini saya ingin membagikan sebuah artikel yaitu contoh program percabangan pada vb 2010 (vb.net). Sebelum saya menjelaskan lebih lanjut contoh program percabangan, saya ingin menjelaskan pada sahabat semua, program yang saya gunakan disini adalah Microsoft Visual Studio 2010.

Oke,,langsung saja step by stepnya contoh program percabangan pada VB 2010

1. Buka program <<Microsoft Visual Studio 2010>> Sobat,,setelah itu pilih <<New Project>> selanjutnya pilih <<Windows Form Application>>. Tampilan seperti gambar dibawah ini.

2. Buatlah sebuah Form seperti gambar dibawah berikut ini dan isi dengan komponen-komponen yang diperlukan.

- Label

- ComboBox1 (Name) = cmbjabatan

- ComboBox2(Name)  = cmbgolongan

- TextBox1(Name)       = txtgaji

- Button1(Name)         = btncek 

3. Klik Form 2x, masukkan koding berikut ini pada <<Form1 Load>>

4. Selanjutnya masukkan koding berikut ini pada <<Public Class Form1>>

5. Selanjutnya klik 2x <<btncek>> lalu masukkan koding berikut ini.

Setelah sobat selesai memasukkan koding-koding diatas tadi, silahkan sobat <<Run>> dan lihat hasilnya. Taraaaaaaaa.............Sobat sudah berhasil membuat sebuah program percabangan pada vb 2010. Silahkan sobat kembangkan sendiri program tersebut sesuai dengan kebutuhan sobat. Demikian penjelasan dari saya, semoga artikel ini .:: contoh program percabangan pada vb 2010 ::.  bermanfaat bagi sahabat tokokoding semua. Terimakasih!

Read More

Mengisi ListView pada Visual Basic (VB)

Mengisi Data ListView pada Visual Basic (VB)

Salam debug untuk para pecinta koding....apa kabar mas/mbak, bli/mbok?? Ketemu lagi nih dengan tokokoding.blogspot.com. kali ini saya ingin berbagi artikel tentang pemrograman, yaitu tentang bagaimana cara : mengisi data pada listview pada visual basic (vb) :

Ok gak perlu basa-basi lagi,, langsung saja kita ke koding, setelah anda selesai membuat tampilan formnya, seperti mengisi listview, text, button, dll anda klik 2X pada form kemudian buatkan sub baru. Berikut kode untuk mengisi data pada listview pada visual basic (vb) 6.0 :

Sub isidatalist()

With DataEnvironment1.rsbarang

    If .RecordCount > 0 Then .MoveFirst

    Me.ListView1.ListItems.Clear

    On Error Resume Next

    While Not .EOF

        Set Ls = Me.ListView1.ListItems.Add(Text:=.Fields(0))

            Ls.SubItems(1) = .Fields(1)

            Ls.SubItems(2) = .Fields(2)

            Ls.SubItems(3) = .Fields(3)

            Ls.SubItems(4) = .Fields(4)

            Ls.SubItems(5) = Format(.Fields(5), "#,###")

        .MoveNext

    Wend

    If .RecordCount > 0 Then .MoveFirst

End With

End Sub

·         Panggil sub diatas pada form load, klik 2x form kemudian ketik : call isidatalist

Sekian ilmu dari saya tentang :: mengisi data listview pada visual basic 6.0 :: kalau ada yang debug/error,, komment aja kesini biar kita cari solusinya sama-sama. Terimakasih....

Read More

Melihat Posisi dan Jumlah Record Pada Visual Basic 6.0

Melihat Posisi dan Jumlah Record Pada Visual Basic 6.0

Untuk melihat posisi dan jumlah record pada visual basic (vb), anda tinggal membuatkan satu buah label, kemudian masuk ke form load dan buatkan sub baru (sub posisirecord).

Berikut kode untuk mengetahui posisi dan jumlah record pada visual basic 6.0 :

Sub posisirecord()

With DataEnvironment1.rsbarang

    Label1.Caption = .AbsolutePosition & " of " & .RecordCount

End With

End Sub

Panggil sub diatas pada form load dan tombol navigasi dengan cara ketik : call posisirecord

Demikian koding dari saya,, semoga artikel ini bermanfaat untuk anda dan jika ada kendala dengan script untuk :: melihat posisi dan jumlah record pada visual basic (vb) :: diatas,, anda koment aja dibawah ini, agar kita bisa cari solusinya bersama-sama. Terimakasih dan sampai jumpa....

Read More

Membuat Tombol Navigasi Pada Visual Basic

Cara Membuat Tombol Navigasi Pada Visual Basic (VB)

Salam koding brow...apa kabar nih?? Kali ini saya mau ngasih sebuah artikel yang sangat menarik untuk dibaca, khusunya yang suka dengan pemrograman Visual Basic (VB) karena kali ini saya akan membahas tentang bagaimana :: cara membuat tombol navigasi pada visual basic (vb) ::

Kalian tahukan yang mana yang dimaksud tombol navigasi?? Itu lho..yang first (<<), previous (<), next (>), last (>>). Okk..langsung saja kita ke cara membuat tombol navigasi pada visual basic (vb). 

Pertama, untuk membuat tombol navigasi, silahkan anda masukkan object (button) pada form visual basic (VB) dan ubah name'nya menjadi cmdnav kemudian anda copy button tersebut dan jangan lupa di array ya (setelah dicopy dan dipaste akan muncul konfirmasi, mau di array atau tidak?? Pilih yes untuk meng-array button tersebut) sehingga jumlah button menjadi 4 buah dan ubah caption dari masing-masing button tersebut sehingga menjadi seperti ini  <<  <   >  >>.

Setelah anda selesai membuat tombol navigasinya pada form visual basic, sekarang kita masuk ke kodenya 

Berikut saya kasih kodenya agar tombol navigasi yang anda buat pada visual basic mau berjalan.

Klik 2X tombol <<  kemudian masukkan kode dibawah ini :

Private Sub cmdnav_Click(Index As Integer)

With DataEnvironment1.rsbarang

    Select Case Index

        Case 0

            .MoveFirst

        Case 1

            .MovePrevious

            If .BOF Then .MoveFirst

        Case 2

            .MoveNext

            If .EOF Then .MoveLast

        Case 3

            .MoveLast

    End Select

End With

End Sub

Jangan lupa ya ganti (rsbarang) pada with DataEnvironment1.rsbarang sesuai dengan nama tabel anda yang ada pada DataEnvironment.

Demikian ilmu dari saya tentang || cara membuat tombol navigasi pada visual basic (vb) || semoga artikel ini bermanfaat untuk anda yang sedang belajar bahasa pemrograman dan untuk artikel-artikel selanjutnya nanti akan saya share ke kalian semua, sering-sering aja mampir ke blog ini tokokoding.blogspot.com.

Read More

Membuat Alarm dengan VB

.:: MEMBUAT PROGRAM APLIKASI ALARM DENGAN VB 6.0 ::.

Selamat Pagi/Siang/Malem Bray...??? ketemu lagi nih sama "tokokoding.blogspot.com". OK,,, langsung saja kita ke topik utama kita yaitu ..: membuat program aplikasi Alarm dengan Vb 6.0 :.. yupps...postingan kali ini akan membahas tentang pembuatan aplikasi vb, dimana aplikasi ini bisa membantu mengingatkan anda ketika sedang asyik bermain komputer, dimana biasanya kita kelupaan sembahyang gara-gara maen game atau lupa bahwa ada jadwal penting pada jam itu. Dalam membuat program aplikasi alarm ini sangat mudah sekali untuk dipahami, saya yakin anda pasti bisa membuat aplikasi ini setelah membaca tutorial dari saya.

Berikut cara membuat program aplikasi alarm dengan vb 6.0 yang bisa anda coba dirumah dengan mudah.

1.    Jalankan program VB anda kemudian buat new project dan tetap pilih standar.exe

2.    Tambahkan pada form anda 3 kontrol label, 2 kontrol commandbutton, 2 kontrol timer dan satu textbox, kemudian aturlah sehingga tampilan seperti gambar dibawah ini :

Gambar Program Aplikasi Alarm Dengan Vb 6.0

3.    Aturlah properties kontrol Timer1 dimana Enabled= TRUE dan Interval=1000 , lalu untuk kontrol Timer2 Enabled=FALSE dan intervalnya 1000 juga.

4.    Kemudian ketikkan/copy kode/listing/script program dibawah ini :

Dim alarm As Boolean

Private Sub Command1_Click()

If alarm = True Then

Timer2.Enabled = False

Command1.Caption = "Aktif"

alarm = False

Else

Command1.Caption = "Tidak Aktif"

alarm = True

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

alarm = False

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Time

If Text1.Text = Label1.Caption And alarm = True Then

Timer2.Enabled = True

End If

End Sub

Private Sub Timer2_Timer()

Beep

End Sub

5. Setelah anda selesai menulis kode diatas, kemudian Save (simpan) dan silahkan run program anda dengan menekan F5 dan silahkan untuk mengeset waktu alarm yang anda inginkan lalu klik tombol Aktif , berikut contoh dimana kita menetapkan pukul 12:00:00 PM alarm akan hidup.

Gambar Hasil Program Aplikasi Alarm Dengan Vb 6.0

Mudah bukan...?? Selamat mencoba .:: membuat program aplikasi alarm dengan vb 6.0 ::.

Semoga aplikasi ini dapat membantu anda, terutama untuk mengingatkan waktu-waktu penting anda. Anda juga bisa mengembangkan aplikasi alarm ini agar menjadi lebih bagus dan menarik.

"Salam Coding"

Read More

Membuat Form Login Pada VB

.:: Membuat Form Login Pada VB ::.

Kali ini saya punya sebuah artikel yang saya tulis khusus untuk anda yang ingin belajar pemrograman, khususnya Visual Basic (VB). Artikel ini membahas tentang cara :: membuat form login pada vb :: Di dalam artikel ini sudah saya tuliskan kode-kodenya untuk membuat form login pada vb. Dalam membuat form login ini saya menggunakan microsoft visual basic 6.0, sebelum anda mulai mengerjakan form ini, ada baiknya anda menyiapkan secangkir kopi diatas meja kerja anda atau yang tidak suka kopi bisa juga es teh kok,,, agar pikiran menjadi plooong....Oke...tidak perlu basa-basi lagi kita langsung aja ke topik utama yaitu membuat form login pada vb. 
 

Berikut langkah-langkah membuat form login pada vb

1.    Langkah pertama..buatlah sebuah form terlebih dahulu yaitu form login. Berikut saya kasih contoh form login pada vb:

Gambar Form Login

Label          = Caption (Username)

Label2        = Caption (Password)

Label3        = Caption (Status User)

Label4        = Caption (Silahkan masukkan username dan password anda untuk login)

Text1          = Text (Dikosongkan)

Text2          = Text (Dikosongkan)

Combo1      = List (User, Admin, Manager), Text (- Pilih Status User -)

Command1 = Caption (Login)

Command2 = Caption (Close)

  
1. Setelah anda selesai membuat form loginnya, kemudian anda harus membuat sebuah modules pada vb yang isinya :

Public idpetugas As String

Public namapetugas As String

Public statususer As String

2. Setelah selesai membuat  modules, anda tinggal ketik/copy deh koding vb dibawah ini. Anda masukkan koding dibawah ini pada form login (double klik form login). 

Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii > 0 Then

    KeyAscii = 0

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Command1_Click()

With DataEnvironment1.rspetugas

If .State = 0 Then .Open

If .RecordCount > 0 Then .MoveFirst

    .Find "username='" & Text1.Text & "'"

    If Not .EOF Then

        If .Fields("password") = Text2.Text Then

         If .Fields("status_user") = Combo1.Text Then

            idpetugas = .Fields(0)

            namapetugas = .Fields(1)

            statususer = .Fields("status_user")

            Unload Me

            Menu_Utama.Show

         Else

            MsgBox "Login Gagal !! Status User yang anda Pilih Salah"

         End If

        Else

            MsgBox "Login Gagal !! Password yang Anda Masukkan tidak Cocok"

        End If

       

    Else

        MsgBox "Login Gagal !! Username yang Anda Masukkan tidak Cocok"

    End If

       

End With

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 39 Then KeyAscii = 0

End Sub

3.    Setelah semua koding diatas anda masukkan pada form login, coba RUN form tersebut dan lihat hasilnya.

Penting :

Ubah tulisan yang berwarna biru sesuai dengan table dan field-field yang anda buat pada database. Khusus untuk "Menu_Utama.Show" yang warna biru itu adalah form mana yang akan dituju setelah login sukses, maka dari itu sesuaikanlah dengan apa yang anda buat pada vb.

Demikian cara :: membuat form login pada vb :: yang bisa saya share kepada anda, untuk form-form vb yang lainnya, nanti akan saya share pada blog ini. Sering-seringlah berkunjung ke "tokokoding.blogspot.com".

"See you later"

Read More